This function ornaments a symbol pattern by creating a chromatic upward moving appoggiatura from a lower symbol where two or more symbols repeat. Use it to smooth melodies with too many repeated symbols. Note that this works only with symbol patterns containing non-transpose symbols.
(ornament-lower-chromatic '(a a c c -l -l -l k l m m))
--> ((-1 a) a (-1 c) c (-1 -l) (-1 -l) -l k l (-1 m) m)
